home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / DOS.SWG / 0044_Rebooting.pas < prev    next >
Pascal/Delphi Source File  |  1994-02-03  |  1KB  |  35 lines
  1. {
  2. From: STEVE ROGERS
  3. Subj: Rebooting
  4. Here's some code to make both warmboot and coldboot com files. If you
  5. want to make them TP procs, just enter them as inline code.
  6.  
  7. ------------------------------------------------------------------------
  8. {Makes two COM files: WARMBOOT & COLDBOOT }
  9.  
  10. const
  11.   Warm_Boot : array[1..17] of byte =  { inline code for warm boot }
  12.                                      ($BB,$00,$01,$B8,$40,$00,
  13.                                       $8E,$D8,$89,$1E,$72,$00,
  14.                                       $EA,$00,$00,$FF,$FF);
  15.  
  16.   Cold_Boot : array[1..17] of byte =  { inline code for cold boot }
  17.                                      ($BB,$38,$12,$B8,$40,$00,
  18.                                       $8E,$D8,$89,$1E,$72,$00,
  19.                                       $EA,$00,$00,$FF,$FF);
  20.  
  21. var
  22.   f : file;
  23.  
  24. begin
  25.   assign(f,'warmboot.com');
  26.   rewrite(f,1);
  27.   blockwrite(f,warm_boot,17);
  28.   close(f);
  29.  
  30.   assign(f,'coldboot.com');
  31.   rewrite(f,1);
  32.   blockwrite(f,cold_boot,17);
  33.   close(f);
  34. end.
  35.